home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wmfbmp / getfile.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-12-03  |  1.9 KB  |  73 lines
  1. VERSION 2.00
  2. Begin Form GetFile 
  3.    Caption         =   "Open WMF File"
  4.    Height          =   4860
  5.    Left            =   2325
  6.    LinkTopic       =   "Form2"
  7.    ScaleHeight     =   4455
  8.    ScaleWidth      =   4095
  9.    Top             =   1920
  10.    Width           =   4215
  11.    Begin CommandButton Command2 
  12.       Cancel          =   -1  'True
  13.       Caption         =   "Cancel"
  14.       Height          =   315
  15.       Left            =   3000
  16.       TabIndex        =   4
  17.       Top             =   480
  18.       Width           =   975
  19.    End
  20.    Begin CommandButton Command1 
  21.       Caption         =   "OK"
  22.       Default         =   -1  'True
  23.       Height          =   315
  24.       Left            =   3000
  25.       TabIndex        =   3
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin FileListBox File1 
  30.       Height          =   4125
  31.       Left            =   120
  32.       Pattern         =   "*.wmf"
  33.       TabIndex        =   2
  34.       Top             =   120
  35.       Width           =   1695
  36.    End
  37.    Begin DirListBox Dir1 
  38.       Height          =   3180
  39.       Left            =   1920
  40.       TabIndex        =   1
  41.       Top             =   900
  42.       Width           =   2055
  43.    End
  44.    Begin DriveListBox Drive1 
  45.       Height          =   315
  46.       Left            =   1920
  47.       TabIndex        =   0
  48.       Top             =   120
  49.       Width           =   855
  50.    End
  51. Sub Command1_Click ()
  52. thepath$ = file1.path
  53. If Right$(thepath$, 1) <> "\" Then thepath$ = thepath$ + "\"
  54. thefile$ = thepath$ + file1.filename
  55. Unload getfile
  56. End Sub
  57. Sub Command2_Click ()
  58. thefile$ = ""
  59. Unload getfile
  60. End Sub
  61. Sub Dir1_Change ()
  62. file1.path = dir1.path
  63. End Sub
  64. Sub Drive1_Change ()
  65. dir1.path = drive1.drive
  66. End Sub
  67. Sub File1_DblClick ()
  68. thepath$ = file1.path
  69. If Right$(thepath$, 1) <> "\" Then thepath$ = thepath$ + "\"
  70. thefile$ = thepath$ + file1.filename
  71. Unload getfile
  72. End Sub
  73.